home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -readerstuff- / richard_kapp / playgui < prev    next >
Text File  |  1999-11-30  |  4KB  |  197 lines
  1. G4C;PlayGUI by Richard Kapp 1999 ; MUST BE IN THE FIRST(!) LINE
  2.  
  3. xROUTINE Hopp
  4. Stop = na
  5. WINBIG -1 -1 275 116 ""
  6. wintype 00001000
  7. image 0 0 skin
  8. image 0 0 Display.iff
  9. WINFONT XHelvetica.font 13 010
  10. WINBACKGROUND image haut 0
  11. xonload
  12.         LOADSOUND soundy tata
  13.         PLAYSOUND tata
  14.         Set help on
  15.         extract PlayGUI guipath PlayGUIpath
  16.         ifexists assign PlayGUI:  ;try to self-locate
  17.           else
  18.            assign PlayGUI: $PlayGUIpath
  19.         endif
  20.  
  21.         loadimage skin/skin haut Workbench
  22.         loadimage Display.iff Schirm Workbench
  23.         guiopen PlayGUI
  24.  
  25.         image 15 22 Schirm
  26.         
  27.  
  28. xonclose
  29.         freeimage haut
  30.         freeimage schirm
  31.         freesound tata
  32.         guiquit PlayGUI
  33.  
  34.  
  35. CText 20 24 "- PLAYGUI -           V.1.5" XHelvetica.font 11 2 -1 01032
  36. CText 20 35 "made by Richard Kapp'99" XHelvetica.font 11 1 -1 00032
  37. CText 20 45 "Select a sample or a mod." XHelvetica.font 11 1 -1 00032
  38.  
  39. ;VOLUME-SLIDER
  40.  
  41.  
  42. xHSlider 20 70 90 10 '' vol 0 64 64 ''
  43. if $a = loaded
  44. and $c = hippy
  45. SendRexx HIPPOPLAYER VOLUME=$vol
  46. else
  47. gosub PlayGUI Hopp
  48. endif
  49.  
  50.  
  51. ; BUTTON - DEFINITIONEN
  52.  
  53. xBUTTON 15 85 20 18 "!"
  54. Gadhelp "Info about the Module"
  55. if $a = loaded
  56. and $c = hippy
  57. SendRexx HIPPOPLAYER SAMPLES
  58. else
  59. gosub PlayGUI Hopp
  60. endif
  61.  
  62. xBUTTON 99 85 20 18 ">"
  63. Gadhelp "FORWARD"
  64. if $a = loaded
  65. and $c = hippy
  66. SendRexx HIPPOPLAYER FFWD
  67. else
  68. gosub PlayGUI Hopp
  69. endif
  70.  
  71. xBUTTON 78 85 20 18 "<"
  72. Gadhelp "REWIND"
  73. if $a = loaded
  74. and $c = hippy
  75. SendRexx HIPPOPLAYER REW
  76. else
  77. gosub PlayGUI Hopp
  78. endif
  79.  
  80. xBUTTON 36 85 20 18 "»"
  81. Gadhelp "Play selected module"
  82. if $a = loaded
  83. CLI 'C:run >NIL: C:hip hide $module'
  84. VARPATH "PlayGUI/*"
  85. say $module
  86. say "***"
  87. c = hippy
  88. stop = na
  89. else
  90. Gosub PlayGUI Hopp
  91. endif
  92.  
  93. xBUTTON 148 42 39 20 "Play"
  94. Gadhelp "Play selected sample"
  95. if $b = loaded
  96. CLI 'C:run >NIL: C:Play16 $sample'
  97. d = play16
  98. else
  99. Gosub PlayGUI Hopp
  100. endif
  101.  
  102. xBUTTON 57 85 20 18 "-"
  103. Gadhelp "Stop playing the module"
  104. if $a = loaded
  105. and $stop = na
  106. CLI 'C:run >NIL: C:hip quit'
  107. stop = ja
  108. c = hippyend
  109. elseif $a = loaded
  110. and $stop = ja
  111. gosub PlayGUI Hopp
  112. endif
  113.  
  114. xBUTTON 187 42 40 20 "Stop"
  115. Gadhelp "Stop playing the sample"
  116. if $b = loaded
  117. BreakTask C:Play16 C
  118. d = play16end
  119. endif
  120.  
  121. xBUTTON 227 42 39 20 "^"
  122. Gadhelp "Select a sample"
  123. ReqFile 0 0 200 400 "Choose a sample..." LOAD sample ram:
  124. b = loaded
  125.  
  126. xBUTTON 129 85 20 18 "^"
  127. Gadhelp "Select a module"
  128. ReqFile 0 0 200 400 "Choose a module..." LOAD module ram:
  129. a = loaded
  130.  
  131.  
  132. xBUTTON 160 85 50 18 "Launch"
  133. Gadhelp "Launch your favourite Music-tool!"
  134. ReqFile 0 0 200 400 "Choose a music-tool..." LOAD tool ram:
  135. CLI 'C:RUN >NIL: $tool'
  136.  
  137. xBUTTON 210 85 35 18 "Quit"
  138. Gadhelp "Quit PlayGUI"
  139. EZReq "Really quit PlayGUI?" "Quit|Cancel" myvar
  140. if $myvar = 1
  141. and $c = hippy
  142. CLI 'C:run >NIL: C:hip quit'
  143. LOADSOUND soundend schluß
  144. PLAYSOUND schluß
  145. freeimage haut
  146. freeimage schirm
  147. freesound tata
  148. freesound schluß
  149. guiquit PlayGUI
  150. elseif $myvar = 1
  151. and $d = play16
  152. BreakTask C:Play16 C
  153. LOADSOUND soundend schluß
  154. PLAYSOUND schluß
  155. freeimage haut
  156. freeimage schirm
  157. freesound tata
  158. freesound schluß
  159. guiquit PlayGUI
  160. elseif $myvar = 1
  161. LOADSOUND soundend schluß
  162. PLAYSOUND schluß
  163. freeimage haut
  164. freeimage schirm
  165. freesound tata
  166. freesound schluß
  167. guiquit PlayGUI
  168. elseif $myvar = 1
  169. and $c = Hipppyend
  170. LOADSOUND soundend schluß
  171. PLAYSOUND schluß
  172. freeimage haut
  173. freeimage schirm
  174. freesound tata
  175. freesound schluß
  176. guiquit PlayGUI
  177. elseif $myvar = 1
  178. and $d = play16end
  179. LOADSOUND soundend schluß
  180. PLAYSOUND schluß
  181. freeimage haut
  182. freeimage schirm
  183. freesound tata
  184. freesound schluß
  185. guiquit PlayGUI
  186. else
  187. Gosub PlayGUI Hopp
  188. endif
  189.  
  190. xBUTTON 148 22 119 20 "Commentary"
  191. gadhelp "Write commentary about the current module or sample and save it"
  192. GuiLoad PlayInfo
  193.  
  194. RESIZE_BIG 214 202 275 116 PLAYGUI
  195.  
  196. RESIZE_SMALL 214 202 275 116 PLAYGUI
  197.